10 REM NEW RERUN C64 AUTOMENU
20 REM LOU WALLACE
40 POKE53280,0:POKE53281,0:PRINTCHR$(142)
50 DR=PEEK(186):V=54273
60 CH$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
70 DR$=RIGHT$(STR$(DR),LEN(STR$(DR))-1)
80 DIM N$(255),D$(255):CX=54272:PRINT "[147]"
90 READ F
100 FOR I=1 TO F:READ N$(I),D$(I)
110 IF LEN(N$(I))>13 THEN N$(I)=LEFT$(N$(I),13)+"*"
120 NEXT
130 GOSUB 400
140 REM - PRINT FIRST COLUMN OF NAMES -
150 D$=""
160 FOR I=1 TO F/2
170 PRINT D$;
180 PRINT""MID$(CH$,I,1)" "N$(I)
190 GOSUB 590:D$=D$+""
200 NEXT
210 REM -- THEN 2ND COLUMN OF NAMES ---
220 D$=""
230 FOR I=(F/2+1) TO F
240 PRINT D$;
250 PRINTSPC(19)""MID$(CH$,I,1)" "N$(I)
260 GOSUB 590:D$=D$+""
270 NEXT
280 GETM$:IFM$=""THEN 280
290 IFM$<"A"ORM$>CHR$(64+F)THEN280
300 P=ASC(M$)-64:PRINT"[147]"
310 IF D$(P)<>"RUN" THEN 340
320 IFLEN(N$(P))>12THENN$(P)=LEFT$(N$(P),12)+"*"
330 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$"[145][145][145]":GOTO360
340 IFLEN(N$(P))>15THENN$(P)=LEFT$(N$(P),16)+"*"
350 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$",1[145][145][145]"
360 A$=D$(P)
370 A$=A$+CHR$(13)
380 POKE631,13:FORB=1TOLEN(A$):POKE631+B,ASC(MID$(A$,B,1)):NEXT:POKE198,10
390 NEW
400 POKE 53280,0:POKE 53281,0
410 OV=PEEK(53265)
420 POKE 53265,PEEK(53265)AND 247
430 POKE 53265,(PEEK(53265)AND248)+7
440 PR$="[209][165]                                    [167][209]"
450 TP$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
460 MD$="[209][165][194]                                  [194][167][209]"
470 BT$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
480 HD$="SPECIAL ISSUE #5 RERUN"
490 PRINT"[147]";
500 PRINT TP$;:GOSUB 590
510 FOR I=1 TO 2:PRINT MD$;:GOSUB 590:NEXT
520 PRINT"[145]";HD$;:GOSUB 590
530 PRINT:PRINT"[145]";
540 FOR I=1 TO 1:PRINT MD$;:GOSUB 590:NEXT
550 PRINT BT$;:GOSUB 590
560 FOR I=1 TO 19:PRINT PR$;:GOSUB 590:NEXT
570 POKE 53265,27
580 RETURN
590 REM SOUND ROUTINE HERE
600 POKE V+23,15:POKE V+4,9:POKE V+5,0:POKE V,1:POKE V+3,32:POKE V+3,33
610 RETURN
1000 REM FILE LIST
1010 REM FIRST ENTRY IS THE NUMBER OF PROGRAMS ON THIS DISK
1020 REM FOLLOWED BY EACH FILENAME
1030 REM SECOND DATA ITEM IS RUN OR SYSXXXXX
1040 REM RUN IF FILE IS BASIC AND SYS XXXXX IF ML
1050 DATA 17
1060 DATA SHOW OF HANDS,RUN
1070 DATA SPRITE DB 64,RUN
1080 DATA TAG,RUN
1090 DATA BREAK-AWAY,RUN
1100 DATA GRAVITRON BOOT,RUN
1110 DATA SPRITE DEMO,RUN
1120 DATA SPRITE BASIC,RUN
1130 DATA SOUND.1,RUN
1140 DATA SOUND.3,RUN
1150 DATA SOUND.6,RUN
1160 DATA SOUND.10,RUN
1170 DATA SOUND.11,RUN
1180 DATA SOUND.12,RUN
1200 DATA CLOCK DEMO,RUN
1210 DATA BALL DEMO,RUN
1220 DATA DOCUMENTATION,RUN
1260 DATA "",RUN